perm filename 13.SCR[SCR,LCS]1 blob
sn#383523 filedate 1978-09-24 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
PLAY ;
< 13 .SCR -- RANDOM NUMBER= 1
PLAY;
CLAR 0.000 0.308 261.626 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 0.000 13.000
;PRINT P1;< CLAR 1
CLAR 0.308 0.308 275.954 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 1.000
;PRINT P1;< CLAR 2
CLAR 0.616 0.308 291.067 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 2.000
;PRINT P1;< CLAR 3
CLAR 0.924 0.307 307.007 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 3.000
;PRINT P1;< CLAR 4
CLAR 1.231 0.308 323.821 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 4.000
;PRINT P1;< CLAR 5
CLAR 1.539 0.308 341.555 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 5.000
;PRINT P1;< CLAR 6
CLAR 1.847 0.307 360.261 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 6.000
;PRINT P1;< CLAR 7
CLAR 2.154 0.308 379.991 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 7.000
;PRINT P1;< CLAR 8
CLAR 2.462 0.308 400.801 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 8.000
;PRINT P1;< CLAR 9
CLAR 2.770 0.307 422.752 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 9.000
;PRINT P1;< CLAR 10
CLAR 3.077 0.308 445.904 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 10.000
;PRINT P1;< CLAR 11
CLAR 3.385 0.308 470.325 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 11.000
;PRINT P1;< CLAR 12
CLAR 3.693 0.307 496.083 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 12.000
;PRINT P1;< CLAR 13
CLAR 4.000 1.000 523.251 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F4 0.000 0.000 0.000 0.000 13.000
;PRINT P1;< CLAR 14
FINISH; < 13 .SCR